home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / amos / sillysource5.lha / INTRO.AMOS / INTRO.amosSourceCode < prev    next >
AMOS Source Code  |  1980-01-04  |  2KB  |  41 lines
  1. Screen Open 1,320,200,16,Lowres : Screen To Back 1
  2. Curs Off : Flash Off : Hide On : Break Off 
  3. Fade 3 : Wait 50
  4. Sam Bank 12
  5.  
  6. Unpack 5 To 1 : Screen To Front 1 : Screen 1
  7. Locate 5,5 : Paper 0 : Pen 15 : Print " Silly Software"
  8. Locate 5,6 : Paper 0 : Pen 15 : Print "Proudly Presents"
  9. Sam Play 1 : Wait 150
  10. Locate 5,5 : Paper 0 : Pen 15 : Print "                 "
  11. Locate 5,6 : Paper 0 : Pen 15 : Print "                 "
  12. Locate 5,5 : Paper 0 : Pen 15 : Print " In Association"
  13. Locate 6,6 : Paper 0 : Pen 15 : Print "With -  My Mummy"
  14. Sam Play 2 : Wait 130 : Sam Play 3 : Wait 130
  15. Locate 5,5 : Paper 0 : Pen 15 : Print "                 "
  16. Locate 5,6 : Paper 0 : Pen 15 : Print "                 "
  17. Locate 5,5 : Paper 0 : Pen 15 : Print "  Mummies Playtime"
  18. Sam Play 4 : Wait 150
  19. Locate 5,5 : Paper 0 : Pen 15 : Print "                 "
  20. Locate 5,5 : Paper 0 : Pen 15 : Print "Programming By Deano"
  21. Locate 5,6 : Paper 0 : Pen 15 : Print "      My Daddy"
  22. Sam Play 5 : Wait 200
  23. Locate 5,5 : Paper 0 : Pen 15 : Print "                    "
  24. Locate 5,6 : Paper 0 : Pen 15 : Print "                 "
  25. Locate 5,5 : Paper 0 : Pen 15 : Print "Graphics By Ian"
  26. Locate 5,6 : Paper 0 : Pen 15 : Print "  And Chillum"
  27. Sam Play 6 : Wait 180
  28. Locate 5,5 : Paper 0 : Pen 15 : Print "                 "
  29. Locate 5,6 : Paper 0 : Pen 15 : Print "                 "
  30. Locate 5,5 : Paper 0 : Pen 15 : Print "It's Time To"
  31. Locate 5,6 : Paper 0 : Pen 15 : Print "Play The Game"
  32. Sam Play 7 : Wait 120
  33. Locate 5,5 : Paper 0 : Pen 15 : Print "                 "
  34. Locate 5,6 : Paper 0 : Pen 15 : Print "                 "
  35. Locate 5,5 : Paper 0 : Pen 15 : Print "   Bye Bye"
  36. Sam Play 8 : Wait 150
  37. Locate 5,5 : Paper 0 : Pen 15 : Print "                 "
  38. Locate 8,5 : Paper 0 : Pen 15 : Print "Press Space To Continue"
  39. Track Loop On : Track Play 10
  40. Repeat : Until Inkey$=" " : Track Stop : Fade 3 : Wait 50 : Erase All 
  41. Run "PLAYTIME"